Program FileTest;
uses
    crt;
{Tipos de dato a usar en los archivos}
Type
    {$I DataTypes.pas}

    {$I FileManagment.pas}

Procedure MostrarPedidos();
Var
    PedidoArchivo:file of Pedido;
    NuevoPedido : Pedido;
    i : integer;
Begin

    Assign(PedidoArchivo,'Pedidos.dat');
    If (FileExists('Pedidos.dat')) Then
        Reset(PedidoArchivo)
    Else
        Rewrite(PedidoArchivo);

    For i:=0 To (FileSize(PedidoArchivo)-1) Do
    Begin
        Seek(PedidoArchivo,i);
        Read(PedidoArchivo,NuevoPedido);
        Writeln('--------------------------------');
        Writeln('Numero             : ', NuevoPedido.Numero);
        Writeln('Fecha              : ', NuevoPedido.Fecha);
        Writeln('Electrodomestico   : ', NuevoPedido.Electrodomestico);
        
    End;
    Close(PedidoArchivo);

End;
{*********/Procedimientos y Funciones*************}
Var
    PedidoArchivo:file of Pedido;
Begin
    MostrarPedidos();
    Readln;
End.

